﻿Module RemedyCode
    Public Enum InputDialogResult
        OK
        Cancel
    End Enum
    Public SelectInput As New InputDialogResult
    Public InputText As String
    Public Function ShowInput(ByVal Owner As Form, Optional ByVal Title As String = "InputBox", Optional ByVal DefaultValue As String = "", Optional ByVal LimitKeyPress As Boolean = True) As String
        Dim frm As New Remedy_InputBox(Title, DefaultValue, LimitKeyPress)
        frm.StartPosition = FormStartPosition.CenterScreen
        frm.ShowDialog(Owner)
        If SelectInput = InputDialogResult.OK Then
            Return InputText
        Else
            Return ""
        End If
    End Function
End Module
